home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 2002 January
/
PC Answers January 2002.7z
/
PC Answers January 2002.bin
/
graphics
/
freepixl
/
_SETUP.1
/
remapper.pxl
< prev
next >
Wrap
Text File
|
2000-03-20
|
3KB
|
114 lines
Initialize:
UseCoordinates(PIXEL)
SetColorPalette(BITMAP)
Title$ = "PiXCL 4.40 Color Remapping"
UseCaption(Title$)
WinAdjustRect(100,100,480,235,MENU,wx1,wy1,wx2,wy2)
WinLocate(Title$,wx1,wy1,wx2,wy2,Res) {100,100,380,135}
WinShow(Title$,TOPMOST,Res)
ImageFile$ = ""
UseBackground(TRANSPARENT,166,166,166)
DrawBackground
DirGet(SourceDir$)
UseFont("MS Sans Serif",0,19,NOBOLD,NOITALIC,NOUNDERLINE,255,0,0)
InfoMenu(REMOVE)
WaitInput(100)
SetMenu("&File",IGNORE,
"Exit!",Leave,
ENDPOPUP,
"PAL files",IGNORE,
"Make Std",Make_Std,
"Make Neg",Make_Neg,
ENDPOPUP,
"&Help",IGNORE,
"&Concept",Concept,
ENDPOPUP)
StatusWindow(ENABLE,BOTTOM,2,200,-1,0,0)
DrawStatusWinText(0,"Ready")
GoSub Make_Strings
Wait_for_Input:
WaitInput()
Leave:
End
Concept:
MessageBox(OK,1,ICON11,
"This sample program creates color remapping array
files for the RemapImage command. Currently, it creates
a standard 0-255 and a negative 255-0 array file.",
"Making Color Remapper files",Res)
Goto Wait_for_Input
Make_Std:
UseCursor(WAIT)
DrawStatusWinText(0,"Creating remap file...")
WaitInput(1)
Palette$ = PaletteHeader$
ProgressBar(ENABLE,10,10,200,30)
UpdateProgressBar(0,ABSOLUTE)
For i=0 To 255 By 1
Str(i, i$)
Palette$ = Palette$ + i$ {red value}
Palette$ = Palette$ + " "
Palette$ = Palette$ + i$ {green value}
Palette$ = Palette$ + " "
Palette$ = Palette$ + i$ {blue value}
Palette$ = Palette$ + LF$
UpdateProgressBar(1,RELATIVE)
Next
PALFileName$ = SourceDir$ + "\stdmap.pal"
Len(Palette$,Long)
FileDelete(PALFileName$,Res)
FileWrite_ASCII(PALFileName$,0,Long,Palette$,Res)
UseCursor(ARROW)
ProgressBar(DISABLE,10,10,200,220)
DrawStatusWinText(0,"Ready")
Goto Wait_for_Input
Make_Neg:
UseCursor(WAIT)
DrawStatusWinText(0,"Creating remap file...")
WaitInput(1)
FreeVar(Palette$)
Palette$ = PaletteHeader$
ProgressBar(ENABLE,10,10,200,30)
UpdateProgressBar(0,ABSOLUTE)
For J=0 To 255
i = 255 - J
Str(i, i$)
Palette$ = Palette$ + i$ {red value}
Palette$ = Palette$ + " "
Palette$ = Palette$ + i$ {green value}
Palette$ = Palette$ + " "
Palette$ = Palette$ + i$ {blue value}
Palette$ = Palette$ + LF$
UpdateProgressBar(1,RELATIVE)
Next
PALFileName$ = SourceDir$ + "\negmap.pal"
Len(Palette$,Long)
FileDelete(PALFileName$,Res)
FileWrite_ASCII(PALFileName$,0,Long,Palette$,Res)
UseCursor(ARROW)
ProgressBar(DISABLE,10,10,200,220)
DrawStatusWinText(0,"Ready")
Goto Wait_for_Input
Make_Strings:
Chr(13,CR$) Chr(10,LF$) CRLF$ = CR$ + LF$
PaletteHeader$ = "PiXCL-PAL" + LF$
PaletteHeader$ = PaletteHeader$ + "0100"
PaletteHeader$ = PaletteHeader$ + LF$
PaletteHeader$ = PaletteHeader$ + "256"
PaletteHeader$ = PaletteHeader$ + LF$
Return